home *** CD-ROM | disk | FTP | other *** search
- .key DEVICE/A
- .bra [
- .ket ]
- .def [DEVICE] :
-
- If Not Exists [DEVICE]
- Echo "Invalid drive specification."
- Quit
- EndIf
-
- Echo "Current drive label is " NOLINE
- Which [DEVICE]
- Echo "Enter new label: " NOLINE
- Echo >RAM:LB "C:Relabel [DEVICE] " NOLINE
- GetLine >>RAM:LB
- Execute >NIL: RAM:LB
- Delete RAM:LB Quiet
-